www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/admin/index.asp
<!--#include file="../Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%Stats="管理控制面板"
Select Case Request("action")
Case "admin_left"
Call admin_left()
Case "admin_main"
Call admin_main()
Case Else
Call Main()
End Select
Sub Main()
If Not Master Or Session("flag")="" Then
Response.Redirect "../"&LoginUrl&""
Else
%>
<html>
<head>
<title><%=webname%>-控制面板</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="reply-to" content="webadmin@mssky.com">
<meta name="Copyright" content="Copyright (C) 2002-2008 mssky.com.All signature Rights Reserved.">
</head>
<frameset rows="*" cols="180,*" frameborder="NO" border="0" framespacing="0">
<frame src="index.asp?action=admin_left" name="leftFrame" noresize marginwidth="0" marginheight="0">
<frame src="index.asp?action=admin_main" name="mainFrame" NORESIZE frameborder="0" marginwidth="0" marginheight="0" border="no">
</frameset>
</frameset><noframes></noframes>
</body>
</html>
<%
end if
end sub
sub admin_left()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<title><%=webname%>--管理页面</title>
<style type=text/css>
body { background:#799AE1; margin:0px; font:normal 12px 宋体;
SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1;
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1;
SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
<tr><td valign=top>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=42 valign=bottom>
<img src="images/title.gif" width=158 height=38>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif >
<span><a href="index.asp" target=_top><b>管理首页</b></a> | <a href="logout.asp" target=_top><b>退出</b></a></span>
</td>
</tr>
</table>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_1.gif" id=menuTitle1 onClick="showsubmenu(1)">
<span>常规管理</span> </td>
</tr>
<tr>
<td style="display" id='submenu1'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=150>
<TBODY>
<tr>
<td height=5></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="admin_setting.asp" target="mainFrame">基本设置</a>
| <a href="Message.asp" target="mainFrame">短信管理</a></td>
</tr>
<tr>
<td height=11><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="help.asp" target="mainFrame">帮助管理</a>
| <a href="../Announce.asp?action=add" target="_blank">公告管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href=guestbook.asp target="mainFrame">留言管理</a>
| <a href="server_info.asp" target="mainFrame">主机环境</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="wish.asp" target="mainFrame">祈愿管理</a>
| <a href="Freeurl.asp" target="mainFrame">域名管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="postcom.asp" target="mainFrame">举报中心</a> | <a href="template.asp" target="mainFrame">个人模板</a></td>
</tr>
<TBODY>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td></tr></table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_2.gif" id=menuTitle1 onClick="showsubmenu(2)">
<span>会员管理</span> </td>
</tr>
<tr>
<td style="display" id='submenu2'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=150>
<TBODY>
<tr>
<td height=5></td>
</tr>
<tr>
<td height=20><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="admin_user.asp" target="mainFrame">用户资料管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="sendemail.asp" target="mainFrame">发送用户邮件</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="admin_group.asp" target="mainFrame">用户组添加
| 管理</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="admin.asp?action=add" target="mainFrame">管理员添加</a>
| <a href="admin.asp" target="mainFrame">管理</a></td>
</tr>
<tr>
<td height=3><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="vip.asp" target="mainFrame">Vip会员管理</a></td>
</tr>
<TBODY>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td></tr></table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_4.gif" id=menuTitle1 onClick="showsubmenu(4)">
<span>信息管理</span> </td>
</tr>
<tr>
<td style="display" id='submenu4'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=150>
<TBODY>
<tr>
<td height=5></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="album.asp" target="mainFrame">用户相册</a>
| <a href="party.asp" target="mainFrame">同城约会</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="diary.asp" target="mainFrame">用户日记</a>
| <a href="klatch.asp" target="mainFrame">网友聚会</a></td>
</tr>
<tr>
<td height=2><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="marry.asp" target="mainFrame">征婚管理</a>
| <a href="Visual.asp" target="mainFrame">虚拟形象</a></td>
</tr>
<tr>
<td height=3><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="ArtType.asp" target="mainFrame">文章类别</a>
| <a href="Artlist.asp" target="mainFrame">玫瑰美文</a></td>
</tr>
<tr>
<td height=3><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="media.asp" target="mainFrame">影片管理</a></td>
</tr>
<TBODY>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td></tr></table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_5.gif" id=menuTitle1 onClick="showsubmenu(5)">
<span>数据处理(Access)</span> </td>
</tr>
<tr>
<td style="display" id='submenu5'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=150>
<TBODY>
<tr>
<td height=5></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="data.asp?action=Readsql" target="mainFrame">SQL数据库说明</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="data.asp?action=CompressData" target="mainFrame">压缩数据库</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="data.asp?action=BackupData" target="mainFrame">备份数据库</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="data.asp?action=RestoreData" target="mainFrame">恢复数据库</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="data.asp?action=SqlGo" target="mainFrame">SQL命令处理</a></td>
</tr>
<tr>
<td height=5><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="update.asp" target="mainFrame">更新系统数据</a></td>
</tr>
<TBODY>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td></tr></table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_6.gif" id=menuTitle1 onClick="showsubmenu(6)">
<span>文件管理</span> </td>
</tr>
<tr>
<td style="display" id='submenu6'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=150>
<TBODY>
<tr>
<td height=5></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="Face_up.asp?action=list" target="mainFrame">头像上传管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="Alb_up.asp?action=list" target="mainFrame">相册上传管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="Kla_up.asp?action=list" target="mainFrame">聚会上传管理</a></td>
</tr>
<tr>
<td height=10><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="Art_up.asp?action=list" target="mainFrame">文章日记上传</a></td>
</tr>
<TBODY>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td></tr></table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_9.gif" id=menuTitle1>
<span>交友中心信息</span> </td>
</tr>
<tr>
<td>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20> <br>
<a href="http://www.suww.net/" target=_blank>版权所有：<BR>
速网科技<br>
（www.suww.net）</a><BR>
<BR>
</td></tr>
</table>
</div>
</td>
</tr>
</table>
<%end sub
sub admin_main()
%>
<title><%=webname%>--管理页面</title>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" >
<%
If Not Master Or Session("flag")="" Then
Response.write("本页面为管理员专用，请<a href=../"&LoginUrl&" target=_top>登录</a>后进入。")
response.end
Else
Dim theInstalledObjects(20)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail" 'Jamil 4.2
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "JMail.Message" 'Jamil 4.3
theInstalledObjects(19) = "Persits.Upload"
theInstalledObjects(20) = "SoftArtisans.FileUp"
Head()
%>
<table width="98%" border="0" cellspacing="1" cellpadding="3" class="tableBorder">
<tr align="center">
<th height=25 colspan="2" class="tableHeaderText">交友信息统计</th>
</tr>
<%dim LastUser,UserNum,Uploadph,Userdiary,Marrynum,Partynum,UserVip
set rs=server.createobject("adodb.recordset")
sql="select LastUser,UserNum,Uploadph,Userdiary,Marrynum,Partynum,UserVip from Ms_setup where Cid=1"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
LastUser=rs("LastUser")
UserNum=rs("UserNum")
Uploadph=rs("Uploadph")
Userdiary=rs("Userdiary")
Marrynum=rs("Marrynum")
Partynum=rs("Partynum")
UserVip=rs("UserVip")
end if
rs.close%>
<tr>
<td height="23" colspan="2" class="bodytitle1">系统信息：注册会员 <font color=red><%=UserNum%></font> 新进会员 <font color=red><%=LastUser%></font> 上传写真 <font color=red><%=Uploadph%></font> 会员日记 <font color=red><%=Userdiary%></font> 征婚主题 <font color=red><%=Marrynum%></font> 同城约会<font color=red><%=Partynum%></font> VIP会员<font color=red><%=UserVip%></font></td>
</tr>
<tr>
<td height="27" colspan="2" class="forumRowHighlight">本系统由速网科技（<a href="http://www.suww.net" target="_blank">suww.net</a>）授权给
<%=webname%> 使用，注册号：<%=UpcodeID%>，当前版本为 <%=Systemfiles%> <%
If IsSqlDatabase=1 Then
Response.Write "SQL 版"
Else
Response.Write "Access 版"
End If
%></td>
</tr>
<tr>
<td width="49%" height=23 class="forumRow">服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="51%" class="forumRow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td class="forumRowHighlight" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class="forumRowHighlight">数据库地址：</td>
</tr>
<tr>
<td class="forumRow" height=23>FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<b><font color="#FF0000">×</font></b>
<%else%>
<b>√</b>
<%end if%>
</td>
<td class="forumRow">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<b><font color="#FF0000">×</font></b>
<%else%>
<b>√</b>
<%end if%>
</td>
</tr>
<tr>
<td class="forumRowHighlight" height=23>Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<b><font color="#FF0000">×</font></b>
<%else%>
<b>√</b>
<%end if%>
</td>
<td class="forumRowHighlight">CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<b><font color="#FF0000">×</font></b>
<%else%>
<b>√</b>
<%end if%>
</td>
</tr>
<tr>
<td height="24" colspan="2" class="forumRow">更详细服务器环境，<a href="server_info.asp">点击这里</a>进行查看！</td>
</tr>
<tr align="center">
<th height=25 class="tableHeaderText" colspan="2">管理说明</b></th>
</tr>
<tr>
<td height="25" class="forumRow" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width=20%>站 长</td>
<td>拥有所有权限。<br>
第一次使用时请到<font color=red>用户管理-</font><a href=admin.asp><font color=red>管理员密码修改</font></a>重新设置管理密码</td>
</tr>
<tr>
<td>管 理 员</td>
<td>需要站长给予权限。<br>
注:<a href=admin.asp><font color=red>在管理员管理－设置权限!</font></a></td>
</tr>
<tr>
<td>使用设置</td>
<td>第一次使用Mslove交友系统<br>
点击左边管理导航菜单中的“<a href=admin_setting.asp><font color=red>常规设置-基本设置</font></a>”<br>
对你的网站信息和一些网站配置参数进行配置。 </td>
</tr>
<tr>
<td><font color=red>更新通知</font></td>
<td><script src=http://www.suww.net/pack/love/pack.asp?UpcodeID=<%=UpcodeID%>></script></td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<th height=25 colspan="2" class="tableHeaderText"><b>管理快捷方式</b></th>
</tr>
<form name="form" method="post" action="admin_user.asp?action=userSearch">
<input type=hidden name="userSearch" value="9">
<tr>
<td height="35" class="forumRow" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=20%>快速查找用户</td>
<td ><input name="Username" type="text" size="20" maxlength="20"><input type=checkbox name="like" value="1" checked> 完整匹配 <input name="Submit" type="submit" id="Submit" value="立即搜索"></td>
</tr>
</table>
</td>
</tr></form>
<form action="vip.asp?action=Vsearch" method=post>
<input type=hidden name="VSearch" value="12">
<tr>
<td height="35" class="forumRow" colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=20%>查找申请VIP</td>
<td ><input name="username" type="text" size="20"><input type=checkbox name="like" value="1" checked>
完整匹配 VIP等级 <select name="Vipclass">
<option value=""></option>
<option value="1">铜级VIP</option>
<option value="2">白银VIP</option>
<option value="3">黄金VIP</option>
<option value="4">水晶VIP</option>
</select><input name="Submit" type="submit" id="Submit" value="立即搜索"></td>
</tr>
</table></td>
</tr>
</form>
<tr>
<td height="25" class="forumRow" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=20%>VIP到期通知</td>
<td >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%set rs=server.createobject("adodb.recordset")
If IsSqlDataBase=1 Then
sql="select Username,Vip_StarTime,Vip_EndTime from Ms_user where datediff(hour,Vip_EndTime,"&SqlNowString&")>=25 order by UserID desc"
else
sql="select Username,Vip_StarTime,Vip_EndTime from Ms_user where datediff('h',Vip_EndTime,"&SqlNowString&")>=25 order by UserID desc"
end if
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof%>
<tr>
<td><a href="./?action=modify&username=<%=rs(0)%>"><font color="#FF0000"><%=rs(0)%></font></a></td><td><font color="#FF0000">[开始：<%=rs(1)%> 结束：<%=rs(2)%>]</font></td>
</tr>
<%rs.movenext
loop
else
response.Write("<tr><td>暂无记录</td></tr>")
end if
rs.close%>
</table>
</td>
</tr>
</table></td>
</tr>
<tr align="center">
<th height=25 colspan="2" class="tableHeaderText"><b>版权声明</b></th>
</tr>
<tr>
<td class="forumRow" colspan="2"> 1、本软件为商业软件,未经书面授权，不得向任何第三方提供本软件系统;<br>
2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<br>
3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <br>
4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。 </td>
</tr>
<tr align="center">
<th height=25 colspan="2" class="tableHeaderText"><b>程序版权说明</b></th>
</tr>
<tr>
<td height="25" align="center" class="forumRow" colspan="2">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td width="20%" class="forumRow">程序开发</td>
<td class="forumRow">速网科技：黑太阳</td>
</tr>
<tr>
<td class="forumRow">联系方式</td>
<td class="forumRow">OICQ：46054808（技术支持）<br>
QQ群：<br>
邮件：super@mssky.com<br>
主页：<a href="http://www.suww.net" target="_blank">http://www.suww.net</a><br>
电话：13929490890（只用作购买联系） <br>
</td>
</tr>
<tr>
<td class="forumRow">版本说明</td>
<td class="forumRow">此版本为：Mslove Version 3.0.0。推广版（1200元）、普及版（800元）<br>
普及版：程序一次性升级到最新，不包括下一个版本！<br>
正式版：注册获得更新号，自由登录更新包括下一个版本！</td>
</tr>
</table>
</td>
</tr>
</table>
<%footer()
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>